﻿<!--#include file="conn1.asp"-->
<% 
dim us,ur,ur1,ur2,length,wstr,body,urt1
ur=Request.QueryString("us")
if ur="" then
%>
出错了！你的网址输入为空，请从新输入！
<br/>-----------<br/>
<div class="block5"><a href="/liul/chakan1.asp?us=<%=server.urlencode(request("us"))%>">查看源码</a>|<a href="/liul/INDEX.asp?">浏览首页</a><br/>
<a href="<%=ur%>">查看原址</a>报时:<%=time%></div>
<hr><div class="navi">
<form action="go1.asp" method="get"><input type="text" name="us" value="<%=ur%>" /><input type="hidden" name="u" value=""&u&"" /><br/><input type="submit" value="进入查看" /></form></div>
<hr>
</body>
</html>
<%
else
urt1=replace(ur,"http://","")
ura=replace(urt1,"/","")
if ura=urt1 then
ur1=urt1+"/"
else
ur1=urt1
end if
length1=Instr(ur1,"/")
length2=Instrrev(ur1,"/")
ur2=left(ur1,length1)
ur3=left(ur1,length2)
wstr = getHTTPPage(ur)
wstr1=replace(wstr,"</wml>","")
if 1<>2 then
start = Instr(wstr,"<p")
over = Instr(wstr,"</card>")
body = mid(wstr,start,over-start)
body = replace(body,"'","""")
body = replace(body,"<img src=""/","<img src='http://"&ur2&"")
body = replace(body,"<img src=""http://","<img src='http://") 
body = replace(body,"<img src=""","<img src=""http://"&ur3&"")
body = replace(body,"<a href=""/","<a href='/liul/go1.asp?u="&u&"&us=http://"&ur2&"")
body = replace(body,"<a href=""http://","<a href='/liul/go1.asp?u="&u&"&us=http://") 
body = replace(body,"<a href=""","<a href=""/liul/go1.asp?u="&u&"&us=http://"&ur3&"")
body = replace(body,"<go href=""/","<go href='/liul/go1.asp?u="&u&"&us=http://"&ur2&"")
body = replace(body,"<go href=""http://","<go href='/liul/go1.asp?u="&u&"&us=http://") 
body = replace(body,"<go href=""","<go href=""/liul/go1.asp?u="&u&"&us=http://"&ur3&"")
body = replace(body,"'","""")
body = replace(body,"&amp;","%26")
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","") 
body = replace(body,"</p>","")
body = replace(body,"<p>","")
body = replace(body,"</a><br/>","</a></div><div class=""navi"">")
body = replace(body,"<br/>","</div><div class=""block5"">")
if  body="" then
body="出错了！你的访问的网页失败，请从新输入！<hr><br/>-----------<br/>"
else
body=body
end if
%>
<div class="block5"><a href="/liul/chakan1.asp?us=<%=server.urlencode(request("us"))%>">查看源码</a>|<a href="/liul/INDEX.asp?">浏览首页</a><br/>
<a href="<%=ur%>">查看原址</a>报时:<%=time%></div>
<hr><div class="navi">
<form action="go1.asp" method="get"><input type="text" name="us" value="<%=ur%>" /><input type="hidden" name="u" value="<%=u%>" /><br/><input type="submit" value="进入查看" /></form></div>
<hr><div class="navi">
<%=body%>
</div>
</body>
</html>
<%
else
http5="../liul/go2.asp?us="&ur&""
Response.Redirect http5
End IF
End IF
%>

